home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / sml_nj / 93src.lha / src / env / statenv.sml < prev   
Encoding:
Text File  |  1993-01-27  |  498 b   |  22 lines
  1. (* Copyright 1992 by AT&T Bell Laboratories *)
  2. (* env/statenv.sml *)
  3.  
  4. structure StaticEnv : STATICENV =
  5. struct
  6.  
  7.   type statenv = Modules.env
  8.   type binding = Modules.binding
  9.  
  10.   exception Unbound = Env.Unbound
  11.   exception SpecialEnv = Env.SpecialEnv
  12.   val empty = Env.empty
  13.   val look = Env.look
  14.   val bind = Env.bind
  15.   val open' = Env.open'
  16.   val special = Env.special
  17.   val atop = Env.atop
  18.   val consolidate = Env.consolidate
  19.   val app = Env.app
  20.   val map = Env.map
  21.  
  22. end  (* structure StaticEnv *)